perm filename MFSYS.DIF[MF,DEK] blob
sn#557220 filedate 1981-01-22 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF] 1-22-81 11:15 pages 1,1
C00006 00003 1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF] 1-22-81 11:15 pages 3,3
C00011 ENDMK
C⊗;
1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF] 1-22-81 11:15 pages 1,1
**** File 1) MFSYS.SAI[MF,DEK]/1P/6L
1) C00012 00004 Dynamic memory allocation: links,memsize,vmemsize,mem,vmem,memreal,vmemint
1) C00015 00005 Partial field macros: field,ufield,link,info,setfield...setinfo
1) C00019 00006 Memory allocation: getavail, getvavail, freeavail, dslist
1) C00022 00007 Memory, continued: checkmem, searchmem
1) C00027 00008 Getting the whole thing started properly
1) C00031 ENDMK
1) C⊗;
**** File 2) MFSYS.SAI[MF,DRF]/1P/6L
2) C00013 00004 Dynamic memory allocation: links,memsize,vmemsize,mem,vmem,memreal,vmemint
2) C00016 00005 Partial field macros: field,ufield,link,info,setfield...setinfo
2) C00020 00006 Memory allocation: getavail, getvavail, freeavail, dslist
2) C00023 00007 Memory, continued: checkmem, searchmem
2) C00028 00008 Getting the whole thing started properly
2) C00033 ENDMK
2) C⊗;
***************
**** File 1) MFSYS.SAI[MF,DEK]/3P/13L
1) integer errcnt # the number of errors that TEX didn't wait after;
1) internal boolean deletions_allowed # is it safe for error routine to call getnext?;
**** File 2) MFSYS.SAI[MF,DRF]/3P/13L
2) internal boolean deletions_allowed # is it safe for error routine to call getnext?;
***************
**** File 1) MFSYS.SAI[MF,DEK]/3P/27L
1) IFWAITS if c='15 then begin c←inchrw # ignore the line-feed; return end; ENDWAITS
1) IFTENEX if c='37 then return; ENDTENEX
1) if c='12 then begin pausing_on_errors←false; return end;
**** File 2) MFSYS.SAI[MF,DRF]/3P/26L
2) IFTENEX if c='37 then return;
2) ELSEC if c='15 then begin c←inchrw # ignore the line-feed; return end;
2) ENDC
2) if c='12 then begin pausing_on_errors←false; return end;
***************
**** File 1) MFSYS.SAI[MF,DEK]/3P/36L
1) if c="I" then
**** File 2) MFSYS.SAI[MF,DRF]/3P/36L
2) IFTOPS20 # this code due to DRF;
2) if curfile and (c="E" or c="T") then
2) begin string s; integer i;
2) setprint(null,"N") # close the errors file;
2) s←"ED "&'15&'33&"X Fi"&'33&curfile&'15
2) # ED cr esc X FIND FILE esc curfile cr;
1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF] 1-22-81 11:15 pages 3,3
2) s←s&'33&"X↑R Goto B"&'15
2) # esc X ↑R GOTO BEGINNING cr;
2) s←s&'25&cvs(curfpage-1)&'33&"X↑R Char"&'15&'14
2) # cntl-u <page no> esc X ↑R CHARACTER SEARCH cr cntl-L;
2) s←s&'33&"1"&'33&"X↑R Rev"&'33&"C"&'15&'14
2) # esc 1 esc X ↑R REVERSE CHARACTER SEARCH cr cntl-L;
2) s←s&'25&cvs(curfline-1)&'33&"X↑R Down R"&'15
2) # cntl-u <line no> esc X ↑R DOWN REAL LINE cr;
2) for i←1 thru length(s) do sti('101,s[i for 1]) # magic ;
2) goto final_end;
2) end;
2) ENDTOPS20
2) if c="I" then
***************
**** File 1) MFSYS.SAI[MF,DEK]/3P/66L
1) print(" x or X to quit.",nextline);
1) end
1) else begin
1) errcnt←errcnt+1;
1) if errcnt≥100 then
1) begin print(nextline,"(That makes 100 errors, I'm tired of this.)");
1) go to end_of_MF;
1) end;
1) end;
**** File 2) MFSYS.SAI[MF,DRF]/3P/85L
2) IFTOPS20 if curfile then print(" e or E to edit,"); ENDTOPS20
2) print(" x or X to quit.",nextline);
2) end;
***************
**** File 1) MFSYS.SAI[MF,DEK]/8P/27L
1) errcnt←0;
1) comment If TENEX, we must wait and allocate the raster when the
**** File 2) MFSYS.SAI[MF,DRF]/8P/27L
2) comment If TENEX, we must wait and allocate the raster when the
***************
**** File 1) MFSYS.SAI[MF,DEK]/8P/41L
1) setformat(0,4) # controls format of cvf in diagnostic routine "dumplist";
**** File 2) MFSYS.SAI[MF,DRF]/8P/40L
2) IFTOPS20
2) begin "getcommandline"
2) string s; integer i;
2) start_code
1) MFSYS.SAI[MF,DEK] and 2) MFSYS.SAI[MF,DRF] 1-22-81 11:15 pages 8,8
2) setz 1,0;
2) jsys '500; haltf;
2) end;
2) s←intty # gets the users command line that started up MF;
2) while length(s)>0 and s[1 for 1] neq " " do i←lop(s);
2) while length(s)>0 and s[1 for 1] = " " do i←lop(s);
2) if length(s)>0 then begin # user gave MF input in command line;
2) i←location(s);
2) start_code
2) move 1,i;
2) move 1,(1);
2) jsys '500; haltf;
2) setz 1,0;
2) jsys '500; haltf;
2) end;
2) end;
2) end "getcommandline";
2) ENDTOPS20
2) setformat(0,4) # controls format of cvf in diagnostic routine "dumplist";
***************
**** File 1) MFSYS.SAI[MF,DEK]/8P/60L
1) maincontrol # transfer power to the chief executive;
1) end_of_MF: closeout # close output files of MFOUT;
1) if bbuf then print(nextline,"(binput file still contains unread data)");
**** File 2) MFSYS.SAI[MF,DRF]/8P/82L
2) IFXMEM initxmem; ENDXMEM
2) maincontrol # transfer power to the chief executive;
2) end_of_MF:
2) IFXMEM closexmem; ENDXMEM
2) closeout # close output files of MFOUT;
2) if bbuf then print(nextline,"(binput file still contains unread data)");
***************